package require tclodbc

namespace eval ::wt::database::drivers::tclOdbc::base:: {
}

proc ::wt::database::drivers::tclOdbc::base::closeDataSource {dataSource} {
  upvar $dataSource ds
  [table get $ds connection] disconnect
}

package provide wt::database::drivers::tclOdbc::base 1
